﻿Public Class Usuario
#Region "Propiedades"
    Private Shared intTrabajadorID As Integer = -1
    Private Shared _bolConectado As Boolean = False
    Private Shared _intCodigo As Integer = 1
    Private Shared _strNombre As String
    Private Shared _strLogin As String = ""
    Public Shared Property Conectado() As Boolean
        Get
            Return _bolConectado
        End Get
        Set(ByVal value As Boolean)
            _bolConectado = value
        End Set
    End Property
    Public Shared Property Codigo() As Integer
        Get
            Return _intCodigo
        End Get
        Set(ByVal value As Integer)
            _intCodigo = value
        End Set
    End Property
    Public Shared Property TrabajadorID() As Integer
        Get
            Return intTrabajadorID
        End Get
        Set(ByVal value As Integer)
            intTrabajadorID = value
        End Set
    End Property
    Public Shared Property NombreUsuario() As String
        Get
            Return _strNombre
        End Get
        Set(ByVal value As String)
            _strNombre = value
        End Set
    End Property
    Public Shared Property Login() As String
        Get
            Return UCase(_strLogin)
        End Get
        Set(ByVal value As String)
            _strLogin = value
        End Set
    End Property
#End Region
End Class
